home *** CD-ROM | disk | FTP | other *** search
/ Geek Games #12 / GEGA012.iso / Jogos de Azar / blackjack1.swf / scripts / frame_18 / DoAction.as
Text File  |  2006-01-17  |  1KB  |  76 lines
  1. function ShufflePloy()
  2. {
  3.    counter = 0;
  4.    Clevel = 200;
  5.    c0 = 0;
  6.    c1 = 1;
  7.    c2 = 2;
  8.    c3 = 3;
  9.    c4 = 4;
  10.    c5 = 5;
  11.    c6 = 6;
  12.    c7 = 7;
  13.    c8 = 8;
  14.    c9 = 9;
  15.    c10 = 10;
  16.    c11 = 11;
  17.    c12 = 12;
  18.    c13 = 13;
  19.    c14 = 14;
  20.    c15 = 15;
  21.    c16 = 16;
  22.    c17 = 17;
  23.    c18 = 18;
  24.    c19 = 19;
  25.    c20 = 20;
  26.    c21 = 21;
  27.    c22 = 22;
  28.    c23 = 23;
  29.    c24 = 24;
  30.    c25 = 25;
  31.    c26 = 26;
  32.    c27 = 27;
  33.    c28 = 28;
  34.    c29 = 29;
  35.    c30 = 30;
  36.    c31 = 31;
  37.    c32 = 32;
  38.    c33 = 33;
  39.    c34 = 34;
  40.    c35 = 35;
  41.    c36 = 36;
  42.    c37 = 37;
  43.    c38 = 38;
  44.    c39 = 39;
  45.    c40 = 40;
  46.    c41 = 41;
  47.    c42 = 42;
  48.    c43 = 43;
  49.    c44 = 44;
  50.    c45 = 45;
  51.    c46 = 46;
  52.    c47 = 47;
  53.    c48 = 48;
  54.    c49 = 49;
  55.    c50 = 50;
  56.    c51 = 51;
  57.    leng = 52;
  58.    q = 0;
  59.    while(Number(q) < Number(leng))
  60.    {
  61.       rand = random(52);
  62.       if(eval("c" add rand) eq "empty")
  63.       {
  64.          q -= 1;
  65.       }
  66.       else
  67.       {
  68.          set("shuffle" add q,eval("c" add rand));
  69.          set("c" add rand,"empty");
  70.       }
  71.       q = Number(q) + 1;
  72.    }
  73.    q = 0;
  74. }
  75. ShufflePloy();
  76.